
; code we want to generate:

(define (square x1) 
  (let ((s (open_col_session "localhost")))
    (let ((result (remote_eval (list 'square x1) 
                    user-initial-environmen s)))
       (begin (close_col_session s) result))))



